home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0018_Serial Base Addresses.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-18  |  484b  |  15 lines
  1. FUNCTION Serial_Base_Addr(COM_Port : byte) : word;
  2. { DESCRIPTION:
  3.     Base address for four serial ports.
  4.   SAMPLE CALL:
  5.     NW := Serial_Base_Addr(1);
  6.   RETURNS:
  7.     The base address for the specified serial port.
  8.   NOTES:
  9.     If the port is not used, then the returned value will be 0 (zero).
  10.     The aceptable values for COM_Port are: 1,2,3 and 4. }
  11.  
  12. BEGIN { Serial_Base_Addr }
  13.   Serial_Base_Addr := MemW[$0000:$0400 + Pred(COM_Port) * 2];
  14. END; { Serial_Base_Addr }
  15.